object FormBusca_Cliente: TFormBusca_Cliente
  Left = 890
  Top = 266
  Width = 600
  Height = 600
  Caption = 'Busqueda de Cliente para Presupuesto.'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 592
    Height = 23
    Align = alTop
    Alignment = taCenter
    Caption = 'Buscar cliente'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'Arial Black'
    Font.Style = []
    ParentFont = False
  end
  object pBuscar: TPanel
    Left = 0
    Top = 23
    Width = 592
    Height = 61
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label2: TLabel
      Left = 18
      Top = 22
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
    end
    object Label3: TLabel
      Left = 68
      Top = 22
      Width = 63
      Height = 13
      Caption = 'Raz'#243'n Social'
    end
    object Label4: TLabel
      Left = 268
      Top = 22
      Width = 45
      Height = 13
      Caption = 'Direcci'#243'n'
    end
    object Label5: TLabel
      Left = 468
      Top = 22
      Width = 47
      Height = 13
      Caption = 'Poblaci'#243'n'
    end
    object Label6: TLabel
      Left = 0
      Top = 0
      Width = 592
      Height = 13
      Align = alTop
      Alignment = taCenter
      Caption = 
        'Indica los criterios de busqueda que quieras en las casillas sig' +
        'uientes.'
    end
    object eCodigo: TEdit
      Left = 15
      Top = 36
      Width = 50
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnChange = eCodigoChange
    end
    object eNombre: TEdit
      Left = 65
      Top = 36
      Width = 200
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      OnChange = eCodigoChange
    end
    object eDireccion: TEdit
      Left = 265
      Top = 36
      Width = 200
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      OnChange = eCodigoChange
    end
    object ePoblacion: TEdit
      Left = 465
      Top = 36
      Width = 100
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
      OnChange = eCodigoChange
    end
  end
  object XDBGrid1: TXDBGrid
    Left = 0
    Top = 84
    Width = 592
    Height = 448
    Align = alClient
    DataSource = dsClientes
    HeaderFont.Charset = DEFAULT_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -11
    HeaderFont.Name = 'MS Sans Serif'
    HeaderFont.Style = []
    Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleButtons, dgTitleHeaders, dgTitleWidthOff, dgMarkerAutoAlign, dgRowResize, dgRowScroll, dgMarkerAutoToggle, dgExtendedSelect, dgInternalSelect]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = XDBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID_CLIENTE'
        Title.Caption = 'C'#243'digo'
        Visible = True
        Width = 50
      end
      item
        Expanded = False
        FieldName = 'NOMBRE'
        Title.Caption = 'Raz'#243'n Social'
        Visible = True
        Width = 200
      end
      item
        Expanded = False
        FieldName = 'DIRECCION'
        Title.Caption = 'Direcci'#243'n'
        Visible = True
        Width = 200
      end
      item
        Expanded = False
        FieldName = 'POBLACION'
        Title.Caption = 'Poblaci'#243'n'
        Visible = True
        Width = 100
      end>
  end
  object pBotones: TPanel
    Left = 0
    Top = 532
    Width = 592
    Height = 41
    Align = alBottom
    TabOrder = 2
    DesignSize = (
      592
      41)
    object BtnAceptar: TBitBtn
      Left = 367
      Top = 10
      Width = 100
      Height = 26
      Anchors = [akTop, akRight, akBottom]
      Caption = 'Seleccionar'
      TabOrder = 0
      OnClick = BtnAceptarClick
      Kind = bkOK
    end
    object BtnCancelar: TBitBtn
      Left = 477
      Top = 10
      Width = 100
      Height = 26
      Anchors = [akTop, akRight, akBottom]
      Caption = 'Cancelar'
      TabOrder = 1
      Kind = bkCancel
    end
  end
  object qClientes: TZReadOnlyQuery
    Connection = md.BBDD
    Active = True
    SQL.Strings = (
      'SELECT ID_CLIENTE, NOMBRE, DIRECCION, POBLACION'#10
      'FROM CLIENTES'#10
      '')
    Params = <>
    Left = 188
    Top = 324
  end
  object dsClientes: TDataSource
    DataSet = qClientes
    Left = 220
    Top = 324
  end
end
